home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / giochi / giochi4 / sfroghd.lha / Superfrog / Install-Superfrog next >
Text File  |  1997-01-03  |  2KB  |  87 lines
  1. ; --- Superfrog install script
  2. ; --- Adapted from Bert Jahn's Gods script
  3.  
  4. (set #CI_unit 0)
  5. (set #CI_drive ("DF%ld:" #CI_unit))
  6.  
  7.  
  8. ;----------------------------
  9.  
  10. (set @default-dest
  11. (askdir
  12.     (prompt ("Where should %s installed ?\nA drawer \"%s\" will automatically created." @app-name @app-name))
  13.     (help @askdir-help)
  14.     (default @default-dest)
  15.     (disk)
  16. )
  17. )
  18.  
  19. (set #dest (tackon @default-dest @app-name))
  20.  
  21.  
  22. (makedir #dest
  23.     (help @makedir-help)
  24.     (infos)
  25. )
  26.  
  27. ;----------------------------
  28.  
  29. (copyfiles
  30.     (help @copyfiles-help)
  31.     (source "Superfrog")
  32.     (dest #dest)
  33. )
  34. (copyfiles
  35.     (help @copyfiles-help)
  36.     (source "Superfrog.info")
  37.     (dest #dest)
  38. )
  39.  
  40. (copyfiles
  41.     (help @copyfiles-help)
  42.     (source "IntroHD")
  43.     (dest #dest)
  44. )
  45. (copyfiles
  46.     (help @copyfiles-help)
  47.     (source "IntroHD.info")
  48.     (dest #dest)
  49. )
  50.  
  51. (copyfiles
  52.     (help @copyfiles-help)
  53.     (source "sfroghd.readme.info")
  54.     (dest #dest)
  55. )
  56.  
  57. (copyfiles
  58.     (help @copyfiles-help)
  59.     (source "sfroghd.readme")
  60.     (dest #dest)
  61. )
  62.  
  63. (message ("\nInsert %s disk 1 into drive %s !" @app-name #CI_drive))
  64.     (if
  65.         (= 0 (run ("rob2file %ld \"%s/Superfrog.disk1\" 2 159 12389A OFFSET >con:///1000//CLOSE/WAIT" #CI_unit #dest )))
  66.         ("")
  67.         (abort "\"rob2file\" must be in your PATH !")
  68.     )
  69.  
  70. (message ("\nInsert %s disk 2 into drive %s !" @app-name #CI_drive))
  71.     (if
  72.         (= 0 (run ("rob2file %ld \"%s/Superfrog.disk2\" 0 159 12389A >con:///1000//CLOSE/WAIT" #CI_unit #dest )))
  73.         ("")
  74.         (abort "\"rob2file\" must be in your PATH !")
  75.     )
  76.  
  77. (message ("\nInsert %s disk 3 into drive %s !" @app-name #CI_drive))
  78.     (if
  79.         (= 0 (run ("rob2file %ld \"%s/Superfrog.disk3\" 2 159 12389A OFFSET >con:///1000//CLOSE/WAIT" #CI_unit #dest )))
  80.         ("")
  81.         (abort "\"rob2file\" must be in your PATH !")
  82.     )
  83.  
  84.  
  85. (exit)
  86.  
  87.